VERSION 4.00
Begin VB.Form frmSample
Caption = "Sample"
ClientHeight = 5715
ClientLeft = 2445
ClientTop = 2910
ClientWidth = 4740
Height = 6120
Left = 2385
LinkTopic = "Form1"
ScaleHeight = 5715
ScaleWidth = 4740
Top = 2565
Width = 4860
Begin VB.CommandButton cmdOK
Caption = "OK"
Height = 375
Left = 480
TabIndex = 0
Top = 5040
Width = 1335
End
Begin VB.CommandButton cmdCancel
Caption = "Cancel"
Height = 375
Left = 2760
TabIndex = 1
Top = 5040
Width = 1215
End
End
Attribute VB_Name = "frmSample"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
'/******************************************************************/
'/* */
'/* TurboCAD for Windows */
'/* Copyright (c) 1993 - 1996 */
'/* International Microcomputer Software, Inc. */
'/* (IMSI) */
'/* All rights reserved. */
'/* */
'/******************************************************************/
' Storage for read-only property indicating whether
' or not the dialog box was cancelled. Default is
' False. Note that the declaration is Private, so
' that the value cannot be set from the OLE client
' application. The client reads the value using the
' DialogCancelled property.
Private blnDialogCanceled As Boolean
' Read-only property indicating cancellation of the
' dialog.
Property Get DialogCanceled() As Boolean
DialogCanceled = blnDialogCanceled
End Property
Private Sub cmdCancel_Click()
' Set the value of the read-only property that
' tells the caller the dialog was cancelled.
blnDialogCanceled = True
Me.Hide
End Sub
Private Sub cmdOK_Click()
Me.Hide
End Sub
SDK Top API Reference TurboCAD Home Page TurboCAD Programming Forums